global nextDay,news,justVisiting,effort,bbDate --contains 1 if new day
global weather
put empty into justVisiting
if nextDay >0 then
repeat 3 times
set the hilite of button "ultra" to true
set the hilite of button "ultra" to false
end repeat
put 0600 into card field "BBtime"
add 2 to card field "britScore"
put empty into news
put empty into NextDay
if word 2 of card field "bbdate" >30 then
put 1 into word 2 of card field "bbDate"
put "Sept" into word 1 of card field "bbDate"
else
add 1 to word 2 of card field "bbDate"
end if
PUT CARD FIELD "BBDATE" INTO BBDATE
put effort into word 8 of line 3 of card field "ultra"
put weather into card field "weather"
end if
end openCard
on mouseDown
global cardID,h,v
if cardID is empty then
PUT EMPTY INTO card field "raid"
exit mouseDown
end if
if the mouseh >h +80 or the mouseh <h -80 or the mousev <v -80 or the mousev >v +80 then
beep
put empty into cardID
put empty into card field "raid"
exit mouseDown
else
show card button id cardID at the clickloc --mouseh, the mousev
end if
put empty into cardID
put empty into card field "raid"
end mouseDown
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=189 right=201 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kenley
----- HyperTalk script -----
on mouseUp
go to card "B"
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=121 top=283 right=295 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tangmere
----- HyperTalk script -----
on mouseUp
go to card id 5101
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=123 top=110 right=122 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: northolt
----- HyperTalk script -----
on mouseUp
go to card "Z"
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=90 top=0 right=15 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ULTRA
----- HyperTalk script -----
on mousedown
show card field "ultra"
end mousedown
on mouseup
hide card field "ultra"
end mouseup
-- part 12 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=394 top=13 right=26 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 31676 / 31676
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rdf
----- HyperTalk script -----
on wait
delete line 1 of card field id 8
play "boing" b0
show card field id 8
get the loc of card field id 8
click at it
type "R.D.F HERE.....HOLD ON......."
end wait
on mouseUp
global lineNumber,bbTime
delete line 1 of card field id 8
if hilite of me is true then
play "boing" b0
show card field id 8
click at the loc of card field id 8
type line lineNumber of card field "intel"
set hilite of button "go" to false
else
set hilite of me to true
show card field id 8
play "boing" b0
get the loc of card field id 8
click at it
type "R.D.F. HERE....ALL QUIET............OUT."
hide card field id 8
set hilite of me to false
add 100 to bbTime
send "clock"to card field "bbTime"
end if
end mouseUp
-- part 13 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=104 top=287 right=303 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sq43-Tangmere
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 127 into h
put 289 into v
else
beep
end if
end mouseUp
-- part 15 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=104 top=272 right=288 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sq601-Tangmere
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 127 into h
put 289 into v
else
beep
end if
end mouseUp
-- part 46 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=322 right=342 bottom=19
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
visual effect wipe right --slowly
go to previous card
end mouseUp
-- part 27 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=476 top=14 right=28 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 13
-- part name: BBtime
----- HyperTalk script -----
on clock
global bbTime
set hilite of button "go" to false
if bbTime <1000 then put "0" before bbTime
IF BBTIME >1800 THEN PUT "1900" INTO BBTIME
put bbTime into card field "BBtime"
hide card field id 8
end clock
-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=431 top=1 right=13 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name: bbDate
----- HyperTalk script -----
-- part 33 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=400 top=316 right=331 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 13
-- part name: raid
----- HyperTalk script -----
on raid --detection,intel,gruppe size,gruppe types,raid time
global objective,weather,warning,intel,raid,gruppeSize,range,range2
global effort,bForce,numBombers,fforce,me109,me110,do17,ju87,ju88,he111
global lineNumber,raidNum,cont,lessSquads,lessFighters,lessBombers
put 0 into bForce
put 0 into me109
put 0 into me110
put 0 into do17
put 0 into ju87
put 0 into ju88
put 0 into he111
put 0 into lessSquads
put 0 into lessFighters
put 0 into lessBombers
send "wait" to button "rdf"
PUT EMPTY INTO CARD FIELD "SQUADS"
PUT "SQUADRON" INTO CARD FIELD "SQUADS"
--WARNING: AVG LATE NONE
put the random of 6 into ran
put item 13 of objective into radar ---no. of radars
put item 14 of objective into obs --observer value
add radar to ran
if raid contains "major" then add 2 to ran
if weather is "CLEAR" then add obs to ran
else
add 1 to ran
end if
put item ran of line 1 of card field "warnIntel" into warning
----INTEL
put item ran of line 2 of card field "warnIntel" into intel
---GRUPPESIZE
if raid contains "major" then
get the random of 30
get item it of line 1 of card field "gruppe"
put it into gruppeSize
else
get the random of 15
get item it of line 2 of card field "gruppe"
put it into gruppeSize
end if
--TYPES OF PLANES AND THEIR STRENGTH FOLLOWS
put 3 into lineNumber
repeat with x =1 to gruppeSize
get the random of 15
get item it of line lineNumber of card field "gruppe"
if it =0 then
add 1 to me109
add 6 to fforce
else
add it to bForce
end if
add 1 to lineNumber
end repeat
put gruppeSize into numBombers
subtract me109 from numBombers
DELETE LINE 13 TO 27 OF CARD FIELD "INTERCEPT"
if numBombers >0 then
put me109 *23 into word 3 of line 8 of card field "intercept"
put "none" into word 2 of line 9 of card field "intercept"
else
put "none" into word 3 of line 8 of card field "intercept"
put me109 *23 into word 2 of line 9 of card field "intercept"
end if
put numBombers *25 into word 2 of line 7 of card field "intercept"
add 1 to raidNum
put raidnum into word 5 of line 4 of card field "intercept"
set hilite of button "rdf" to true
if warning is "e" then
if intel is "a" then
put "It is reliably reported that " & effort & " air attacks are to be expected during the course of the day on " & word 1 of item 11 of objective into line 3 of card field "ultra"
show card field "ultra"
wait 30
send "mouseUp" to button "rdf"
end if
if intel is "v" then
put item 22 of objective into word 1 of card field "intel"
put gruppeSize*20 into word 6 of card field "intel"
put 1 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "p" then
put item 22 of objective into word 1 of line 2 of card field "intel"
put 2 into lineNumber
send "mouseUp" to button "rdf"
end if
put "raida" into cont --WAIT FOR PLAYER TO PUSH BUTTON
else
send "raida" to me
end if
end raid
on raida
global warning,intel,objective,me109,numBombers,gruppeSize,lineNumber
global cont,range,range2
if warning is "e" or warning is "a" then
if intel is "a" then
put item 22 of objective into word 1 of line 3 of card field "intel"
put me109*20 into word 5 of line 3 of card field "intel"
put numBombers*20 into word 8 of line 3 of card field "intel"
put item 9 of objective into word 16 of line 3 of card field "intel"
put 3 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "v" then
put item 22 of objective into word 1 of line 4 of card field "intel"
put gruppeSize*20 into word 6 of line 4 of card field "intel"
put item 9 of objective into word 14 of line 4 of card field "intel"
put 4 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "p" then
put item 22 of objective into word 1 of line 5 of card field "intel"
put item 9 of objective into word 10 of line 5 of card field "intel"
put 5 into lineNumber
send "mouseUp" to button "rdf"
end if
PUT "a" INTO WARNING
put "raidb" into cont
else
send "raidb" to me
end if
end raida
on raidb
global warning,intel,objective,me109,numBombers,gruppeSize,lineNumber
global cont,range,range2
if warning is "e" or warning is "a" or warning is "l" then
if intel is "a" then
put first word of item 11 of objective into word 12 of line 6 of card field "intel"
put me109*20 into word 4 of line 6 of card field "intel"
put numBombers*20 into word 7 of line 6 of card field "intel"
put 6 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "v" then
put first word of item 11 of objective into word 10 of line 7 of card field "intel"
put gruppeSize*20 into word 5 of line 7 of card field "intel"
put 7 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "p" then
put first word of item 11 of objective into word 9 of line 8 of card field "intel"
put 8 into lineNumber
send "mouseUp" to button "rdf"
end if
put item 5 of objective into range
put item 6 of objective into range2
if me109 >0 then
show button id 47 at range +10,range2 -15
end if
if numBombers >0 then
show button id 42 at range,range2
end if
PUT "l" INTO WARNING ---NEW
put "raidc" into cont
else
send "raidc" to me
end if
end raidb -- INTERCEPT HERE IF WARNING NOT "NONE"
on raidc
global warning,intel,objective,me109,numBombers,gruppeSize,lineNumber
global cont,effort,range,range2,force
if warning is not "e" and warning is not "a" and warning is not "l" or force is empty then
if intel is "a" then
put word 1 of item 11 of objective into word 3 of line 9 of card field "intel"
put me109*20 into word 9 of line 9 of card field "intel"
put numBombers*20 into word 12 of line 9 of card field "intel"
put 9 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "v" then
put word 1 of item 11 of objective into word 13 of line 10 of card field "intel"
put gruppeSize*20 into word 6 of line 10 of card field "intel"
put 10 into lineNumber
send "mouseUp" to button "rdf"
end if
if intel is "p" then
put word 1 of item 11 of objective into word 1 of line 11 of card field "intel"
put word 1 of item 11 of objective into word 12 of line 11 of card field "intel"
put 11 into lineNumber
send "mouseUp" to button "rdf"
end if
put item 7 of objective into range
put item 8 of objective into range2
if me109 >0 then
show button id 47 at range +10,range2 -15
end if
if numBombers >0 then
show button id 42 at range,range2
end if
PUT "n" INTO WARNING
put "raidd" into cont
else
send "raidd" to me
end if
end raidc
on raidd
global warning,intel,objective,me109,numBombers,gruppeSize,lineNumber
global cont,effort,bbtime,force,bforce,fforce,numSquads,fdamage
global high,med,low,bpoints
set hilite of button "go" to true
--DO INTERCEPT ROUTINE NOW
send "intercept" to card field "intercept"
--FOLLOW UP INTERCEPT NOW
if fdamage is "K" OR FDAMAGE IS "H" then
put word 1 of item 11 of objective into word 1 of line 12 of card field "intel"
put word 1 of item 11 of objective into word 13 of line 12 of card field "intel"
put 12 into lineNumber
add 2 to card field "britscore"
send "mouseUp" to button "rdf"
ELSE
put word 1 of item 11 of objective into word 11 of line 13 of card field "intel"
if numBombers <1 then put "STRAFED..." into word 5 of line 13 of card field "intel"
if numBombers >1 then put "BOMBED..." into word 5 of line 13 of card field "intel"
put 13 into lineNumber
send mouseUp to button "rdf"
put item 7 of objective into range
put item 8 of objective into range2
if numBombers >0 then
show button id 42 at range,range2
hide button id 47
else
show button id 47 at range,range2
end if
SEND "GO" TO CARD FIELD "BOMB"
END IF
hide button id 47 ---fighter
hide button id 42 ---bomber
hide card field id 8 ---rdf message window
SET STYLE OF BUTTON "REPORT" TO TRANSPARENT
set hilite of button "rdf" to false
set hilite of button "go" to false
put empty into warning
put empty into force
put empty into numSquads
put empty into bforce
put empty into fforce
put empty into fdamage
if THE RANDOM OF 5 =3 then
get the random of 5
PUT ITEM 1 OF LINE IT OF CARD FIELD "PRIORITY" INTO HIGH
PUT ITEM 2 OF LINE IT OF CARD FIELD "PRIORITY" INTO MED
PUT ITEM 3 OF LINE IT OF CARD FIELD "PRIORITY" INTO LOW
put "INTELLIGENCE ESTIMATES OF TODAYS LIKELY TARGETS FOLLOWS: " & effort & " ACTIVITY OVER " & high & ". SECONDARY TARGETS: " & med into line 3 of card field "ultra"
repeat 3 times
set the hilite of button "ultra" to true
set the hilite of button "ultra" to false
end repeat
end if
---ADVANCE HOURS FOLLOWS
get the random of 22
if effort contains "light" then
get item it of line 15 of card field "gruppe"
end if
if effort contains "med" then
get item it of line 16 of card field "gruppe"
end if
if effort contains "heavy" then
get item it of line 17 of card field "gruppe"
end if
multiply it by 100
add it to bbtime
send "clock" to card field "bbTime"
end raidd
-- part 68 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=262 top=1 right=13 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8448
-- line height: 11
-- part name: britScore
-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=220 top=56 right=68 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: northweald
----- HyperTalk script -----
on mouseUp
go to card "E"
end mouseUp
-- part 69 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=221 top=0 right=13 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 8448
-- line height: 13
-- part name: gerScore
-- part 34 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=40 top=15 right=27 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name: weather
----- HyperTalk script -----
-- part 54 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=134 top=0 right=12 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: report
----- HyperTalk script -----
on mouseDown
if hilite of me is false then
show card field "intercept"
set hilite of me to true
else
hide card field "intercept"
set hilite of me to false
set style of me to opaque
end if
end mouseDown
-- part 36 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=3 top=188 right=288 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: objective
-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=474 top=16 right=29 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GO
----- HyperTalk script -----
on mouseUp
global cont,bbTime
put empty into card field "raid"
hide card field id 8
If hilite of me is true then
beep
exit mouseUp
end if
set hilite of me to true
if hilite of button "rdf" is true then
send cont to card field "raid"
exit mouseUp
end if
if bbTime >1800 then
put 600 into bbTime
visual wipe left slowly
go to card "black"
else
send "sameDay" to card field "bbMap"
end if
end mouseUp
-- part 8 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=0 top=0 right=13 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
-- part 38 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=134 top=287 right=303 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sq602-Tangmere
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 127 into h
put 289 into v
else
beep
end if
end mouseUp
-- part 39 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=134 top=272 right=288 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sq145-Tangmere
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 127 into h
put 289 into v
else
beep
end if
end mouseUp
-- part 41 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=99 top=54 right=244 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: gruppe
-- part 42 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=128 top=283 right=303 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 28600 / 28600
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part 43 (field)
-- low flags: 80
-- high flags: 4001
-- rect: left=0 top=0 right=156 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: intel
-- part 63 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=16 bottom=31
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: QUIT
----- HyperTalk script -----
on mouseDown
if hilite of button "go" is true then
beep
exit mousedown
end if
set hilite of me to true
show card field "bbMap"
saveGame
SET HILITE OF ME TO FALSE
hide card field "bbmap"
SHOW MENUBAR
doMenu "compact stack"
doMenu "home"
end mouseDown
-- part 47 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=141 top=272 right=285 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 3337 / 3337
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fighter
-- part 48 (field)
-- low flags: 80
-- high flags: 4001
-- rect: left=0 top=145 right=233 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: squads
-- part 49 (field)
-- low flags: 80
-- high flags: 4000
-- rect: left=341 top=42 right=66 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: warnIntel
-- part 50 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=406 top=39 right=252 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RESULTS
-- part 51 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=44 right=78 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 14
-- style flags: 8960
-- line height: 16
-- part name: fighterDialog
-- part 52 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=3 top=44 right=98 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 8960
-- line height: 24
-- part name: bomberDialog
-- part 53 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=217 top=202 right=279 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 6
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: BOMB
----- HyperTalk script -----
ON GO
global me109,numbombers,objective,openBase,GPOINTS,force
IF me109 >0 THEN
repeat with i =1 to me109
PLAY "BOING" f0
add .25 to gpoints
end repeat
end if
if numbombers >0 then
repeat with i =1 to numbombers
play "boing" f0
add 1 to gpoints
end repeat
end if
if force <1 then add 1 to gpoints
if item 10 of objective contains "airbase" then
put word 1 of item 11 of objective into temp
set icon of button temp to 27911
put item 9 of objective into temp2
send "shutDown" to card temp2
put 1 into openBase
add 1 to GPOINTS
end if
add trunc(gpoints) to card field "gerScore"
put 0 into gpoints
END GO
-- part 60 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=160 top=194 right=210 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ72-Kenley
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 183 into h
put 195 into v
else
beep
end if
end mouseUp
-- part 56 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=175 top=202 right=218 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ615-Kenley
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 183 into h
put 195 into v
else
beep
end if
end mouseUp
-- part 57 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=175 top=172 right=188 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ253-Kenley
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 183 into h
put 195 into v
else
beep
end if
end mouseUp
-- part 58 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=190 top=179 right=195 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ64-Kenley
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 183 into h
put 195 into v
else
beep
end if
end mouseUp
-- part 59 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=190 top=194 right=210 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ111-Kenley
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 183 into h
put 195 into v
else
beep
end if
end mouseUp
-- part 61 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=222 top=175 right=191 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ616-Kenley
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 183 into h
put 195 into v
else
beep
end if
end mouseUp
-- part 62 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=33 top=0 right=13 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Weather
----- HyperTalk script -----
on mousedown
show card field "weather"
end mousedown
on mouseUp
hide card field "weather"
end mouseUp
-- part 67 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=139 top=152 right=193 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: globals
-- part 70 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=223 top=183 right=199 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ501-BiggenHill
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 231 into h
put 174 into v
else
beep
end if
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=169 right=181 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Biggen-hill
----- HyperTalk script -----
on mouseDown
go to card "C"
end mouseDown
-- part 71 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=238 top=168 right=184 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ32-BiggenHill
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 231 into h
put 174 into v
else
beep
end if
end mouseUp
-- part 72 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=223 top=153 right=169 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ79-BiggenHill
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 231 into h
put 174 into v
else
beep
end if
end mouseUp
-- part 73 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=238 top=183 right=199 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ610-BiggenHill
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 231 into h
put 174 into v
else
beep
end if
end mouseUp
-- part 74 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=238 top=121 right=137 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ54-Hornchurch
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
-- put the short name of the target into card field "raid"
put 246 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 75 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=253 top=121 right=137 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ65-Hornchurch
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 246 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 76 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=253 top=106 right=122 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ74-Hornchurch
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 246 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 77 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=223 top=153 right=169 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ41-Hornchurch
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 246 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 78 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=223 top=121 right=137 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ222-Hornchurch
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 246 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 79 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=268 top=121 right=137 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ602-Hornchurch
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 246 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 80 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=0 top=44 right=62 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 768
-- line height: 14
-- part name: dialog
-- part 81 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=233 top=53 right=69 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ56-N.Weald
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 226 into h
put 61 into v
else
beep
end if
end mouseUp
-- part 83 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=218 top=68 right=84 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ249-N.Weald
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 226 into h
put 61 into v
else
beep
end if
end mouseUp
-- part 82 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=233 top=68 right=84 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ151-N.Weald
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
-- put the short name of the target into card field "raid"
put 226 into h
put 61 into v
else
beep
end if
end mouseUp
-- part 84 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=72 top=42 right=97 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: priority
-- part 85 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=193 top=172 right=188 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ303-Northolt
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 126 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 86 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=161 top=178 right=194 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RCAF1-Northolt
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 126 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 87 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=186 top=178 right=194 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 10230 / 10230
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ1-Northolt
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 126 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 88 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=174 top=171 right=187 bottom=190
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ257-Northolt
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 126 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 89 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=182 top=166 right=182 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 6071 / 6071
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SQ229-Northolt
----- HyperTalk script -----
on mousewithin
put the short name of the target into card field "raid"
end mousewithin
on mouseUp
global cardID,h,v,warning
if warning is not "L" and warning is not "N" then
put the id of the target into cardID
put 126 into h
put 115 into v
else
beep
end if
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=239 top=109 right=121 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 27637 / 27637
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hornchurch
----- HyperTalk script -----
on mouseDown
go to card "D"
end mouseDown
-- part 44 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=94 top=13 right=288 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ultra
----- HyperTalk script -----
on mouseUp
hide card field id 44
end mouseUp
-- part 28 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=0 top=15 right=51 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name: bbMap
----- HyperTalk script -----
on sameDay
global bbTime,effort,raid,objective,weather,low,med,high,news,newsRaid
if hilite of button "go" is false then exit sameday
set style of button "report" to opaque
if weather contains "RAIN" then
add 300 to bbTime
send mouseUp to button "rdf"
exit sameDay
end if
put the random of 37 into number --CHANGE
put line number of card field "objective" into objective
put item 10 of objective into priority ---airbase,port,etc
put item 12 of objective into temp---strategic value 1,2 or 3
put "none" into raid
if low contains priority then
if effort contains "heavy" then
if temp >1 then put "minor" into raid
end if
end if
if med contains priority then
if effort is "light" then
if temp =3 then put "minor" into raid
end if
if effort contains "normal" then
if temp =3 then put "major" into raid
if temp =2 then put "minor" into raid
end if
if effort contains "heavy" then
if temp =1 then put "minor" into raid
else put "major" into raid
end if
end if
if high contains priority then
if effort is "light" then
if temp <3
then put "minor" into raid
else put "major" into raid
end if
if effort is "normal" then
if temp =1
then put "minor" into raid
else put "major" into raid
end if
if effort contains "heavy"
then put "major" into raid
end if
if raid contains "none" then
if news is empty then put "none" into newsRaid
send mouseUp to button "rdf"
else
put 1 into news
put raid into newsRaid
send "raid" to card field "raid"
end if
end sameDay
-- part 45 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=133 top=13 right=331 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: intercept
----- HyperTalk script -----
on mouseUp
hide card field "intercept"
show card field id 100
set hilite of BUTTON "REPORT" to false
set style of BUTTON "REPORT" to opaque
end mouseup
on intercept
global objective,numSquads,lessSquads,lessUs,force,fforce,damage,done
global me109,bforce,bforcex,fdamage,lessFighters,lessBombers,lessEnemy
global numBombers,raidNum,gpoints,bpoints,both
if force <1 then exit intercept
put force into forcex
if fforce >0 and bforce>0 then put 1 into both
PUT NUMBOMBERS *25 INTO TOTALBOMBERS
put me109 *24 into totalFighters
put "Blue,Yellow,Red,Green" into colors
put numsquads into w
if fforce >0 then
put fforce into gforcex
put fforce into gforce
put "51" into fieldID
if numsquads >me109 *2 then
put me109 *2 into w
end if
else
if bforce >0 then
put bforce into gforcex
put bforce into gforce
put 0 into bforce
put "52" into fieldID
if numsquads >numbombers *2 then
put numbombers *2 into w
end if
else
exit intercept
end if
end if
if gforcex >=forcex then
divide gforcex by forcex
put gforcex into forcey
else
divide forcex by gforcex
put forcex into forcey
end if
-- put forcey AFTER line 11 of card field "raid"
put 13 into x
put 0 into z
put 1 into y
repeat with i =2 to w +1
put the random of 4 into temp
if forcey <=1 then
put item temp of line 1 of card field "results" into damagey
else
if forcey <=1.25 then
put item temp of line 2 of card field "results" into damagey
else
if forcey <=1.5 then
put item temp of line 3 of card field "results" into damagey
else
if forcey <=1.75 then
put item temp of line 4 of card field "results" into damagey
else
if forcey <=2 then
put item temp of line 5 of card field "results" into damagey
else
if forcey <=2.25 then
put item temp of line 6 of card field "results" into damagey
else
if forcey <=2.5 then
put item temp of line 7 of card field "results" into damagey
else
if forcey <=2.75 then
put item temp of line 8 of card field "results" into damagey
else
if forcey <=3 then
put item temp of line 9 of card field "results" into damagey
else
if forcey <=3.25 then
put item temp of line 10 of card field "results" into damagey
else
if forcey <=3.5 then
put item temp of line 11 of card field "results" into damagey
else
if forcey <=3.75 then
put item temp of line 12 of card field "results" into damagey
else
if forcey >3.75 then
put item temp of line 13 of card field "results" into damagey
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
if gforce <force then
put first character of damagey into fdamage
put second character of damagey into damage
else
put second character of damagey into fdamage
put first character of damagey into damage
end if
if damage is "K" then
PUT THE RANDOM OF 3 +6 INTO LESSSQUADS
subtract 2 from force
subtract 1 from numSquads
add 3 to Gpoints
end if
if damage is "H" then
PUT THE RANDOM OF 3 +4 into lessSquads
subtract 1 from force
subtract 1 from numSquads
end if
if damage is "L" then
put THE RANDOM OF 3 +1 into lessSquads
SUBTRACT 1 FROM NUMSQUADS
END IF
IF DAMAGE IS "N" THEN
IF THE RANDOM OF 3 =3 THEN put 1 into LESSSQUADS
END IF
add lessSquads to lessUs
if fdamage is "K" then
if fforce >0 then
if totalfighters >0 then add 2 to Bpoints
put THE RANDOM OF 3 +6 into lessFighters
SUBTRACT LESSFIGHTERS FROM TOTALFIGHTERS
else
if totalbombers >0 then add 2 to Bpoints
put THE RANDOM OF 3 +6 into lessBombers
SUBTRACT LESSBOMBERS FROM TOTALBOMBERS
end if
end if
if fdamage is "H" then
if fforce >0 then
put THE RANDOM OF 3 +4 into lessFighters
SUBTRACT LESSFIGHTERS FROM TOTALFIGHTERS
else
put THE RANDOM OF 3 +4 into lessBombers
SUBTRACT LESSBOMBERS FROM TOTALBOMBERS
end if
end if
if fdamage is "L" then
if fforce >0 then
put THE RANDOM OF 3 +1 into lessFighters
SUBTRACT LESSFIGHTERS FROM TOTALFIGHTERS
else
put THE RANDOM OF 3 into lessBombers
SUBTRACT LESSBOMBERS FROM TOTALBOMBERS
end if
END IF
if fdamage is "N" then
if fforce >0 then
IF THE RANDOM OF 3 IS 3 THEN PUT 1 into lessFighters
else
put 0 into lessFighters
end if
END IF
put 0 into lessbombers
end if
IF TOTALFIGHTERS <3 THEN PUT 0 INTO LESSFIGHTERS
IF TOTALBOMBERS <3 THEN PUT 0 INTO LESSBOMBERS
add lessBombers to lessEnemy
add lessFighters to lessEnemy
if y =1 then
play "boing" f0
show card field id fieldID
end if
put 0 into y
if fforce >0 then
put " " & item i of card field "Squads" & " " & lessFighters & " " & " " & " " & lessSquads into line x of card field "intercept"
else
put " " & item i of card field "Squads" & " " & " " & " " & lessBombers & " " & lessSquads into line x +w of card field "intercept"
end if
PUT 0 INTO LESSSQUADS
add 1 to x
hide card field id fieldID --CLEAR DIALOG
add 1 to z
put item z of colors into word 1 of card field "dialog"
if z =4 then put 0 into z
show card field "dialog"
play "noises"
add bpoints to card field "britScore"
put 0 into bpoints
add gpoints to card field "gerScore"
put 0 into gpoints
put item i of card field "squads" into temp
put last character of temp into base
send "results" to button temp of card base
end repeat
hide card field "dialog"
IF FFORCE < 6 OR BFORCE >0 THEN hide card button id 47
BEACHYHEAD HERE ...I HAVE HOSTILE 40 PLUS FORMED UP AND HEADING MY WAY... DISTANCE 80 MILES...OUT
BEACHYHEAD HERE ...UNIDENTIFIED AIRCRAFT HEADING MY WAY...SIZE UNKNOWN...TYPE UNKNOWN...........OUT.
RYE HERE ...I SHOW 100 PLUS FIGHTERS... 60 PLUS BOMBERS OVER CHANNEL .. HEADED SECTOR C OUT
FORENESS HERE ...WE HAVE HOSTILE 160 PLUS OVER CHANNEL NOW AND HEADED SECTOR D ..................OUT.
BEACHYHEAD HERE ...UNIDENTIFIED FORMATION OVER CHANNEL NOW.... HEADING SECTOR A .....................OUT.
HULLO UXBRIDGE...O.C.HERE...WE COUNT 20 PLUS FIGHTERS 20 PLUS BOMBERS NOW HEADED SOUTHAMPTON OUT
HULLO UXBRIDGE...O.C.HERE...WE HAVE VISUAL 160 PLUS AIRCRAFT HEADED VICINITY HORNCHURCH ...........0UT
HULLO UXBRIDGE...O.C.HERE...WE HAVE UNIDENTIFIED AIRCRAFT OVERHEAD HEADED VICINITY TANGMERE .OUT
HULLO UXBRIDGE... HORNCHURCH HERE ...WE ARE UNDER ATTACK... 0 PLUS 109'S... 60 PLUS BOMBERS...OUT.
UXBRIDGE WE ARE UNDER ATTACK...ABOUT 160 AIRCRAFT... COULD USE SOME HELP... ... HORNCHURCH OUT.
TANGMERE O.C. HERE... APPARENTLY WE ARE UNDER ATTACK... NO FURTHER INFO... TANGMERE OUT.
HORNCHURCH O.C. HERE... RAID IS TURNING BACK... MANY THANKS AND WELL DONE... HORNCHURCH OUT.
UXBRIDGE WE ARE BEING BOMBED... ASSUME YOU DID YOUR BEST... TANGMERE OUT.
-- part contents for card part 44
----- text -----
OFFICER ONLY MOST SECRET
INTELLIGENCE ESTIMATES OF TODAYS LIKELY TARGETS FOLLOWS: NORMAL ACTIVITY OVER PORTS & RADARS. SECONDARY TARGETS: AIRBASES.
------------------
This message should be treated as OFFICER ONLY and should not be transmitted by telephone. The Air Ministry and the Admiralty are in possession of this information.
M.I.14.
0540 hrs.
Distribution:
D.D.M.I.(I) for D.M.I.
G.H.Q. Home Forces
M.O.3.
File
-- part contents for card part 45
----- text -----
H E A D Q U A R T E R S N o.1 1 G R O U P
Hillington House, Uxbridge, Middlesex
Report on raid No. 1
Raid size reported:
Bombers: 175
Fighter Escorts: 46
Fighters: none
Squadron: Claims: Losses:
Fighters Bombers
-- part contents for card part 49
----- text -----
n,n,n,n,l,n,l,l,l,a,e,a,a,a,e,e,e
p,p,p,p,p,v,p,v,a,p,p,v,v,a,v,a,a
-- part contents for card part 50
----- text -----
hh,ll,nl,nn
ll,nl,nn,nn
nl,nn,nn,ln
nn,nn,ln,ln
nn,ln,ln,ln
ln,ln,ln,hl
ln,ln,hl,hn
ln,hl,hn,hn
hl,hn,hn,hn
hn,hn,hn,kn
hn,hn,kn,kn
hn,kn,kn,kn
kn,kn,kn,kn
-- part contents for card part 51
----- text -----
Many Bandits! Break! Break! Break!
-- part contents for card part 52
----- text -----
Tally Ho chaps.
Pidgeons below !
-- part contents for card part 53
----- text -----
BOMB
-- part contents for card part 69
----- text -----
0
-- part contents for card part 68
----- text -----
0
-- part contents for card part 80
----- text -----
Blue Flight. Port...Go.
-- part contents for card part 84
----- text -----
AIRBASES,CITIES. INDUSTRIES,PORTS. RADARS
PORTS,AIRBASES. CITIES,INDUSTRIES. RADARS
RADARS,PORTS. AIRBASES,CITIES. INDUSTRIES
INDUSTRIES,RADARS. PORTS,AIRBASES. CITIES
CITIES,INDUSTRIES. RADARS,PORTS. AIRBASES
-- part contents for card part 28
----- text -----
Right.
The current game will be saved.
-- part contents for card part 100
----- text -----
Sector Controls are reminded to land any 'Detailed' Squadrons still aloft.
.iso/•AdventureLand•/Adventures/Battle of Britain 1 •••••/Battle of Britain 1 еееее/card_3560_render.bmp){kind=link}
.iso/•AdventureLand•/Adventures/Battle of Britain 1 •••••/Battle of Britain 1 еееее/card_3805_render.bmp){kind=link}